inst/extdata/MSCR596_-_Advanced_Data_Management_in_R/06 Branch Loop/scripts/centerdefault.R

In bbbruce/admswirl: Swirl Exercises for Advanced Data Management in R

# first line was
# center <- function(x, type) {
# now we provide default
center <- function(x, type = "mean") {
  switch(type,
         mean = mean(x),
         median = median(x),
         trimmed = mean(x, trim = 0.1))
}